[NAGWare Gateway Generator] Copyright (c) 1993 by the Numerical Algorithms Group Ltd pederv
x real y (:) real pw (:,:) real [pw] = pederv(x,y) function [pw] = pederv(x,y)